home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh47b.d64 / lad.print shop (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  649b  |  23 lines
  1. 10 REM EPSON-LADER FUER PRINT-SHOP
  2. 20 REM UND MPS-1000 PARALLEL
  3. 30 REM VON R.LAGARDE
  4. 40 REM DIP-SCHALTER 1.1 ON
  5. 50 REM ----------------------------
  6. 60 POKE53281,15:POKE53280,15
  7. 70 GOTO170
  8. 80 POKE53281,9:POKE53280,9
  9. 90 PRINTTAB(11)"BITTE EINE TASTE!":POKE198,0:WAIT203,63
  10. 100 OPEN4,4:PRINT#4,CHR$(27)"1":CLOSE4
  11. 110 REM --------------------------------
  12. 120 REM ------ PRINT-SHOP LADEN --------
  13. 130 IFA=0THENA=1:LOAD"PRINT SHOP",8,1
  14. 140 RUN
  15. 150 REM --------------------------------
  16. 160 REM ------ DEVICE NOT PRESENT ------
  17. 170 PRINT"[147]":OPEN4,4:PRINT#4
  18. 180 IFPEEK(144)<>128THENCLOSE4:GOTO80
  19. 190 PRINTTAB(5)"BITTE DEN DRUCKER EINSCHALTEN[154]"
  20. 200 PRINTTAB(4)"UND MIT PFEIL LINKS BESTAETIGEN!"
  21. 210 POKE198,0:X=PEEK(203):IFX<>57THEN210
  22. 220 CLOSE4:GOTO100
  23.